home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
stos
/
stos_9
/
hedgehog.bas
(
.txt
)
< prev
next >
Wrap
Atari STOS Basic
|
1987-04-21
|
129KB
|
175 lines
10 FADE
100 GOSUB
1000 REM ********* pause game facility ***********
10000 REM ******* ANIMATE HOG ********
1010 FREEZE
1020 IF
1030 GOTO
1040 REM ********* SCORE ZONES SET UP AND CHECKED ********
1050 SET ZONE
1060 IF
1070 IF
1080 VARNAME
1090 PEN
110 IF
1100 PEN
1110 IF
1120 RETURN
11320 SPRITE
11330 ANIM
11331 ANIM
11332 ANIM
11333 ANIM
11334 ANIM
1199 REM ********* worm/turbo hog go **********
120 GOSUB
1200 VARNAME
1205 SPRITE
1210 IF
1220 RETURN
1299 REM ********** HI SCORE TABLE ************
130 IF
1300 REM ******** START INTRO HERE **********
1302 MUSIC
1320 GOSUB
1390 WAIT
140 GOSUB
1400 REM
1410 CLS
1420 SPRITE
1440 IF
1441 LOCATE
1450 ANIM
1451 IF
1456 ANIM
1460 SPRITE
1461 LOCATE
1470 WAIT
1471 LOCATE
1472 WAIT
1473 LOCATE
1474 WAIT
1475 LOCATE
1476 IF
1477 IF
1478 GOTO
1480 FADE
1490 CLS
150 IF
1520 SPRITE
1531 IF
1532 LOCATE
1535 SPRITE
1536 LOCATE
1537 WAIT
1538 LOCATE
1540 PRINT
1549 LOCATE
1550 IF
1588 IF
1589 GOTO
1590 REM ****** COLOUR CYCLES ********
1591 SHIFT
1592 REM ****** COLOUR CYCLES ********
160 GOSUB
170 IF
180 GOSUB
190 IF
20 REM ******** main game loop ************
200 GOSUB
201 IF
210 INC
220 GOSUB
230 IF
240 GOSUB
250 IF
260 GOSUB
270 IF
280 GOSUB
290 IF
30 IF
300 GOSUB
31 IF
310 IF
32 IF
320 GOSUB
33 IF
330 GOTO
335 IF
336 RETURN
340 REM ******** car movements ***********
350 SPRITE
360 SPRITE
370 SPRITE
380 SPRITE
390 SPRITE
40 GOSUB
400 SPRITE
410 SPRITE
420 SPRITE
430 SPRITE
440 SPRITE
450 SPRITE
460 SPRITE
470 SPRITE
480 SPRITE
490 SPRITE
50 IF
500 REM *********** set up screens *** get ready then game screen *********
501 IF
510 SCROLL
520 SCREEN COPY
530 WAIT VBL
540 FOR
550 INK
560 FADE
570 REM *********** collision checking ************
580 HIDE
590 IF
60 GOSUB
600 IF
610 IF
620 REM ****** scores setups *************
630 SPRITE
640 ANIM
650 VARNAME
660 REM ******* check if need to put cars back ? **********
670 IF
680 IF
690 ANIM
70 IF
700 REM ******** CHECK SCORES AND WAIT FOR NEXT PLAYER **********
710 IF
720 IF
730 IF
740 IF
750 GOTO
760 REM ****** collision yes ! ************
770 SHOOT
775 VARNAME
780 IF
790 MOVE
80 GOSUB
800 PEN
810 PEN
820 IF
830 PAPER
840 IF
850 IF
860 IF
870 IF
880 IF
890 IF
9 KEY
90 IF
900 IF
910 RETURN
920 REM ********** end game *********
930 MUSIC
940 WAIT VBL
950 REM ********* alter the game music speed/pitch **********
960 IF
970 IF
980 IF
990 RETURN